home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / misc / emu / AMIGHPv2a.lha / AMIGHPv2a / EXAMPLES / MENUSTO.s < prev    next >
Text File  |  1996-09-24  |  700b  |  65 lines
  1.     include    entries.i
  2.     con(5)    DOCODE
  3. Debut    con(5)    Fin-Debut
  4.  
  5. C    equ    $800F5
  6. I    equ    $800FA
  7. ADR.M    equ    $800FF
  8. ADR.OBJ    equ    $80104
  9.  
  10.  
  11.     GOSBVL    $0679B
  12.     ST=0    15
  13.     D0=(5)    $80104
  14.     A=DAT1    A
  15.     DAT0=A    A
  16.     D1=(5)    $806D0
  17.     D0=(5)    $800FF
  18.     A=DAT1    A
  19.     DAT0=A    A
  20.     LCHEX    $00092
  21.     D0=(5)    $800FA
  22.     DAT0=C    A
  23. LAB0
  24.     LCHEX    $00000
  25.     D0=(5)    $800FA
  26.     A=DAT0    A
  27.     ?C#A    A
  28.     GOYES    LAB1
  29.     GOTO    LAB2
  30. LAB1
  31.     D0=(5)    $80104
  32.     C=DAT0    A
  33.     D1=C
  34.     D0=(5)    $800F5
  35.     C=0    A
  36.     C=DAT1    B
  37.     D1=D1+    2
  38.     DAT0=C    A
  39.     D0=(5)    $80104
  40.     AD1EX
  41.     D1=A
  42.     DAT0=A    A
  43.     D0=(5)    $800FF
  44.     C=DAT0    A
  45.     D1=C
  46.     D0=(5)    $800F5
  47.     C=DAT0    A
  48.     DAT1=C    B
  49.     D1=D1+    2
  50.     D0=(5)    $800FF
  51.     AD1EX
  52.     D1=A
  53.     DAT0=A    A
  54.     D0=(5)    $800FA
  55.     C=DAT0    A
  56.     C=C-1    A
  57.     DAT0=C    A
  58.     GOTO    LAB0
  59. LAB2
  60.     ST=1    15
  61.     GOSBVL    $067D2
  62.     A=DAT0    A
  63.     D0=D0+    5
  64.     PC=(A)
  65. Fin